(PR
  (BL
    (SVAR I J)
    (EVAR EV1 EV2)
    (AS J
       .0000000    
    )
    (ON EV1
      (BL
        (AS J
          (SADD  1.000000     J)
        )
        (PRINT 
          "J="
          J
        )
        (EV EV2 +)
        ( CMABLE  +  )
      )
    )
    (FO I
       1.000000    
       1.000000    
       10.00000    
      (BL
        (PRINT 
          "I="
          I
        )
        (EV EV1 +)
        (EV EV2 -)
      )
    )
    (PRINT 
      "DONE I-LOOP   "
    )
  )
)